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16-Sep-1984 00:10:41 VAX=-11 FORTRAN V3.4=-56 Pa 1 
b-Sen-1984 90: Ob i62 DISKSVMSMASTER: CERF. SRCIMT_DISMT.FORSTo* 


Subroutine mnt_dismnt_disp (lun,option) 


C 

: Version: *v04-000' 
UU 
0005 Ceeeeeerer eee eeeeeReeHEHEAAHHARHHHHeeRHHKeeeeeeereeeeeeeeeeerereeeeeeeeee 
D006 Ce e 
00 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
008 C* DIGITAL Soul ene NT EORPORATION, MAYNARD, MASSACHUSETTS. * 

1 Fs ALL RIGHTS RESERVED. . 

11 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
oie C* ONLY iN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

01 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER . TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Boi8 ~ TRANSFERRED. * 

ve & 

+ C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

1 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Be = CORPORATION. ~ 
00 ¢ C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 Fs SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
oS é ieciaicihinl anheidiadeesnianabbdahbigniedaiamaemnatadnaiiaaaineiniaeaiamamenaaeikenad 
00 Cc 
0028 C 
0029 : Functional Description: 
80 1 C This module will dispatch to the appropriate volume mount and dismount 
89 3 : routines. 
a : : Author: Sharon Reynolds Creation date: 15-Mar-1983 
3H : Modified by: 
60 C V03-001 SAROO4 Sharon Reynolds, 23-Mar-1983 
B40 : Added volume output support. 

1 C-- 
Bpeg 
Include ‘src$:msghdr.for /noiist' 

10 Include ‘src$:volmount.for /nolist' 

19 Include ‘src$:syecom.for /nolist' 

95 Byte Lun 
0 3 Character! Option 

99 


Determine if this is a ‘mount’ entry. If so, call the 

routine ‘label® to save the error and 1/0 data for this device 
and media, then call the routine ‘mount’ to record/output the 
device name and media information. 
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K 
Br8ep=1984 $4 :08;02 
If Cemb$w_hd_entry .£Q. 64) then 


all LABEL (1,embSi_hd_sid,emb$b_vm_naming,embSt_vm_name, 
emb$w_vm_unit,embSt_vm_Label ,emb$ST_vm_oprcnt,embSl_vm_errcnt) 


Cail MOUNT (Lun,option) 

Return 

Determine if this is a ‘dismount’ entry. If so, call the 

routine ‘label’ to update the error and 1/0 data for this device 
and media, then call the routine ‘dismount’ to get the error and 
1/0 counts and to remove the device name and media information 
from the mount List. 

ELSE if (emb$w_hd_entry .£Q. 65) then 


Call LABEL (2,emb$\_hd_sid,emb$b_vm_naming,emb$t_vm_name, 
1 emb$w_vm_unit,embSt_vm_label,eab$T_vm_oprcnt,embSl_vm_errcnt) 


Call DISMOUNT (Lun,option) 

Return 

Endif 

Else ' Volume output 

Don’t output the volume mount/dismount entry but save of the 
information in the entry. This information will used later for 
the nemery report and to get the volume Label for output 

when a device error, device timeout, and device attention 
entry is output. 

If Cemb$w_hd_entry .eq. 64) then 


Call MOUNT_VOLUME (1,emb$l_hd_sid,emb$b_vm_naming,emb$t_vm_name, 
1 emb$w_vm_unit,emb$t_vm_labeT,emb$l_vm_oprcnt,emb$l_vm_errcnt) 


Return 


Else if (emb$w_hd_entry .eq. 65) then 


Call DISMOUNT_ VOLUME (2,emb$\i_hd_sid,emb$b_vm_namlng,emb$t_vm_name, 
1 emb$Sw_vm_unit,emb$t_vm_labeT, field, field 


Return 
Endif 


Endif ! volume_output 
End ! Module 


VAX=11 FORTRAN 


P 
DISKSVMSMASTER: CIMT_DISMT.FOR; 


MNT_DISMNT_DISP 


PROGRAM SECTIONS 


ENTRY POINTS 


SELL LS 
Dralomo 
—— rm 
sees 
ene 


4-00000019 L*1 
4-0000001 Le 
4-0000001 L*1 
ARRAYS 
Address Type 
=00000000 L*1 


-00000006 


Address Type 
0-00000000 
VARIABLES 
Address Type 
4 1 L*1 
4 1 L*1 
4 1*4 
1*4 
1 1*4 
CHAR 
I* 
-000000 Ie 
-000000 I* 


Total Space Allocated 


Name 
MNT_DISMNT_DISP 


§ 
ro-— 
SNS 
= 
o 


par 
a 
~w 
~O 


osieaeaaa 
ann5s 
ss235 


Cr OOBEEERauMmaD 
a] 


RECCNT 
VALID_CLASS 
VALID" ENTRY 
VOLUME _OUTPUT 


EMB 
EMBSQ_HD_TIME 


Attributes 


Address Type 


Bytes Dimensions 
(0:511) 
(2) 


So-188e 00:40: 


X-11 RAN it Pes Page 
DISKSVMSMASTER:LERF .SRCIMT_DISMT.FOR; 1 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:MT_DISMT/OBJ=0BJ$:MT_DISMT MSRCS:MT_DISMT 
/CHECK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG= {NOS YMBOLS , TRACEBACK) 


/STANDARD= (NOS YNTAX NOSOURCE F ORM) 
1 SHOU (NOPREPROCESSOR NOINCLODE ,MA 


COMPILATION STATISTICS 


Run Time: 1.94 seconds 
Elapsed Time: 9:81 seconds 
Page Faults: 11 

Dynamic Memory: 170 pages 


DISKSVMSMASTER: CERF. SRcIMT DISMT. FOR: ee 


MNT _DISMNT_DISP 1B-Sep-1984 90: 10:6) VAX=-11 FORTRAN 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
rain pasntetoctne a 


/NOG_FLOATING 714 WOPTIMI IE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 
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